home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue35 / jvexcel / JVEXCEL.ZIP / ExcelDemo / ExcelDem.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-04-12  |  5.4 KB  |  224 lines
  1. unit ExcelDem;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, JVExcel, ExtCtrls, Grids;
  8.  
  9. type
  10.   TExcelDemoForm = class(TForm)
  11.     Button1: TButton;
  12.     Button2: TButton;
  13.     ExcelBook1: TExcelBook;
  14.     ExcelSheet1: TExcelSheet;
  15.     Bevel1: TBevel;
  16.     AppVisibleCheckBox: TCheckBox;
  17.     Label1: TLabel;
  18.     Button3: TButton;
  19.     AlertsCheckBox: TCheckBox;
  20.     Button4: TButton;
  21.     ExcelApp1: TExcelApp;
  22.     Bevel2: TBevel;
  23.     Label2: TLabel;
  24.     Edit1: TEdit;
  25.     Button6: TButton;
  26.     ExcelSheet2: TExcelSheet;
  27.     Button7: TButton;
  28.     Edit2: TEdit;
  29.     Label3: TLabel;
  30.     Label4: TLabel;
  31.     Edit3: TEdit;
  32.     Panel1: TPanel;
  33.     Label5: TLabel;
  34.     Button8: TButton;
  35.     Button5: TButton;
  36.     Button9: TButton;
  37.     Edit5: TEdit;
  38.     StringGrid1: TStringGrid;
  39.     FontDialog1: TFontDialog;
  40.     Button10: TButton;
  41.     Button11: TButton;
  42.     Button12: TButton;
  43.     Button13: TButton;
  44.     Button14: TButton;
  45.     Cellsbox: TEdit;
  46.     FormulaBox: TEdit;
  47.     Label6: TLabel;
  48.     Label7: TLabel;
  49.     procedure Button1Click(Sender: TObject);
  50.     procedure Button2Click(Sender: TObject);
  51.     procedure AppVisibleCheckBoxClick(Sender: TObject);
  52.     procedure Button3Click(Sender: TObject);
  53.     procedure Button4Click(Sender: TObject);
  54.     procedure AlertsCheckBoxClick(Sender: TObject);
  55.     procedure Button6Click(Sender: TObject);
  56.     procedure Button7Click(Sender: TObject);
  57.     procedure Button8Click(Sender: TObject);
  58.     procedure Button5Click(Sender: TObject);
  59.     procedure Button9Click(Sender: TObject);
  60.     procedure Button10Click(Sender: TObject);
  61.     procedure Button11Click(Sender: TObject);
  62.     procedure Button12Click(Sender: TObject);
  63.     procedure Button13Click(Sender: TObject);
  64.     procedure FormCreate(Sender: TObject);
  65.     procedure Button14Click(Sender: TObject);
  66.   private
  67.     { Private declarations }
  68.   public
  69.     { Public declarations }
  70.   end;
  71.  
  72. var
  73.   ExcelDemoForm: TExcelDemoForm;
  74.  
  75. implementation
  76.  
  77. {$R *.DFM}
  78.  
  79. procedure TExcelDemoForm.Button1Click(Sender: TObject);
  80. begin
  81. if AlertsCheckBox.Checked then
  82.    ExcelApp1.ShowExcelAlerts := true
  83. else
  84.     ExcelApp1.ShowExcelAlerts := false;
  85. if AppVisibleCheckBox.Checked then
  86.    ExcelApp1.Visible := true
  87. else
  88.     ExcelApp1.Visible := false;
  89. ExcelApp1.Start;
  90. //ExcelBook1.Open;
  91.  
  92. end;
  93.  
  94. procedure TExcelDemoForm.Button2Click(Sender: TObject);
  95. begin
  96. ExcelBook1.PasswordRead := Edit2.Text;
  97. ExcelBook1.PasswordWrite := Edit3.Text;
  98. ExcelBook1.Filename := Edit1.Text;
  99. ExcelBook1.Open;
  100. end;
  101.  
  102. procedure TExcelDemoForm.AppVisibleCheckBoxClick(Sender: TObject);
  103. begin
  104. if AppVisibleCheckBox.Checked then
  105.    ExcelApp1.Visible := true
  106. else
  107.     ExcelApp1.Visible := false;
  108. end;
  109.  
  110. procedure TExcelDemoForm.Button3Click(Sender: TObject);
  111. begin
  112. close;
  113. end;
  114.  
  115. procedure TExcelDemoForm.Button4Click(Sender: TObject);
  116. begin
  117. ExcelApp1.Quit;
  118. end;
  119.  
  120. procedure TExcelDemoForm.AlertsCheckBoxClick(Sender: TObject);
  121. begin
  122. if AlertsCheckBox.Checked then
  123.    ExcelApp1.ShowExcelAlerts := true
  124. else
  125.     ExcelApp1.ShowExcelAlerts := false;
  126.  
  127. end;
  128.  
  129. procedure TExcelDemoForm.Button6Click(Sender: TObject);
  130. begin
  131. ExcelBook1.FileName := Edit1.Text;
  132. ExcelBook1.PasswordRead := Edit2.Text;
  133. ExcelBook1.PasswordWrite := Edit3.Text;
  134. ExcelBook1.Save;
  135. end;
  136.  
  137. procedure TExcelDemoForm.Button7Click(Sender: TObject);
  138. begin
  139.  if MessageDlg('Save changes?',
  140.     mtConfirmation, [mbYes, mbNo], 0) = mrYes  then
  141.     ExcelBook1.Close(true)
  142.  else
  143.      ExcelBook1.Close(false);
  144. end;
  145.  
  146. procedure TExcelDemoForm.Button8Click(Sender: TObject);
  147. var
  148. javstring : string;
  149. JAVinteger, JAVRow : integer;
  150. begin
  151. JAVRow := 0;
  152. JAVString := '';
  153. Repeat
  154. javstring := JAVSTring + StringGrid1.Rows[JaVRow].GetText;
  155. while Pos(#13#10, JAVString) > 0 do
  156.    begin
  157.    JAVInteger := Pos(#13#10, JAVSTring);
  158.    JAVString[JAVInteger] := #9;
  159.    JAVString[JAVInteger + 1] := ' ';
  160.    end;
  161.  inc(javrow);
  162.  JAVString := JAVString + #10;
  163.  until JAVRow = StringGrid1.Rowcount;
  164. ExcelSheet1.InsertData(PChar(JAVString), 0,0,0,0 );
  165. end;
  166.  
  167. procedure TExcelDemoForm.Button5Click(Sender: TObject);
  168. begin
  169. Edit5.Text := ExcelBook1.GetActiveSheet;
  170. end;
  171.  
  172. procedure TExcelDemoForm.Button9Click(Sender: TObject);
  173. begin
  174. ExcelBook1.SetActiveSheet(Edit5.Text);
  175. end;
  176.  
  177. procedure TExcelDemoForm.Button10Click(Sender: TObject);
  178. begin
  179. FontDialog1.Execute;
  180. ExcelSheet1.SetFont(1,1,4,3,FontDialog1.Font);
  181. end;
  182.  
  183. procedure TExcelDemoForm.Button11Click(Sender: TObject);
  184. begin
  185. ExcelSheet1.AutoFitColumns(1,1,4,3);
  186. end;
  187.  
  188. procedure TExcelDemoForm.Button12Click(Sender: TObject);
  189. begin
  190. ExcelApp1.Visible := true;
  191. ExcelSheet1.PrintPreview;
  192. end;
  193.  
  194. procedure TExcelDemoForm.Button13Click(Sender: TObject);
  195. begin
  196. ExcelSheet1.PrintHardCopy(0,0,0);
  197. end;
  198.  
  199. procedure TExcelDemoForm.FormCreate(Sender: TObject);
  200. begin
  201.  
  202. stringgrid1.Cells[0,0] := '1234';
  203. stringgrid1.Cells[2,0] := 'James';
  204. stringgrid1.Cells[1,0] := '1223323';
  205. stringgrid1.Cells[0,1] := '2146';
  206. stringgrid1.Cells[2,1] := '3115';
  207. stringgrid1.Cells[1,1] := '$25,000';
  208. stringgrid1.Cells[0,2] := '35.00354';
  209. stringgrid1.Cells[2,2] := '3454';
  210. stringgrid1.Cells[1,2] := '3888354';
  211. stringgrid1.Cells[0,3] := '54';
  212. stringgrid1.Cells[2,3] := 'Villela';
  213. stringgrid1.Cells[1,3] := '835.04';
  214.  
  215.  
  216. end;
  217.  
  218. procedure TExcelDemoForm.Button14Click(Sender: TObject);
  219. begin
  220. ExcelSheet1.SetFormula(CellsBox.Text, FormulaBox.Text);
  221. end;
  222.  
  223. end.
  224.